IF AEADECI
   @ 5, 00 say "TOTAL REVENUE    : "+trans(ttl,'#,###,###.99')+" Rp. for "+trans(nvisit,'##,###')+" Visits,    Average : "+trans(ttl/nvisit,'#,###.99')+" Rp."
   @ 7, 00 say  "MEDICAL REVENUE  : "+trans(TPR,"9,999,999.99")+" Rp."
   @ 9, 00 say  "PHARMACY REVENUE : "+trans(TPH,"9,999,999.99")+" Rp."
   @ 11, 00 say "GENERAL PRACTICE : "+trans(TGP,"9,999,999.99")+" Rp."
   @ 13, 00 say "SPECIALITS       : "+trans(TSP,"9,999,999.99")+" Rp."
   @ 15, 00 say "DENTISTS         : "+trans(TDE,"9,999,999.99")+" Rp."
   @ 17, 00 say "X-RAY            : "+trans(TXR,"9,999,999.99")+" Rp."
   @ 19, 00 say "ULTRASONOGRAPHY  : "+trans(TUS,"9,999,999.99")+" Rp."
   @ 21, 00 say "LABORATORY       : "+trans(TLA,"9,999,999.99")+" Rp."
   @ 23, 00 say "EMERGENCY ROOM   : "+trans(TER,"9,999,999.99")+" Rp."
   @ 25, 00 say "PHYSICAL EXAMS   : "+trans(TCU,"9,999,999.99")+" Rp."
   @ 27, 00 say "OTHER CLINIC     : "+trans(TCL,"9,999,999.99")+" Rp."
ELSE
   @  5, 00 say "TOTAL REVENUE    : "+trans(ttl,'###,###,###')+" Rp. for "+trans(nvisit,'##,###')+" Visits,    Average : "+trans(ttl/nvisit,'###,###')+" Rp."
   @ 7, 00 say "MEDICAL REVENUE  : "+trans(TPR,"999,999,999")+" Rp."
   @ 9, 00 say "PHARMACY REVENUE : "+trans(TPH,"999,999,999")+" Rp."
   @ 11, 00 say "GENERAL PRACTICE : "+trans(TGP,"999,999,999")+" Rp."
   @ 13, 00 say "SPECIALITS       : "+trans(TSP,"999,999,999")+" Rp."
   @ 15, 00 say "DENTISTS         : "+trans(TDE,"999,999,999")+" Rp."
   @ 17, 00 say "X-RAY            : "+trans(TXR,"999,999,999")+" Rp."
   @ 19, 00 say "ULTRASONOGRAPHY  : "+trans(TUS,"999,999,999")+" Rp."
   @ 21, 00 say "LABORATORY       : "+trans(TLA,"999,999,999")+" Rp."
   @ 23, 00 say "EMERGENCY ROOM   : "+trans(TER,"999,999,999")+" Rp."
   @ 25, 00 say "PHYSICAL EXAMS   : "+trans(TCU,"999,999,999")+" Rp."
   @ 27, 00 say "OTHER CLINIC     : "+trans(TCL,"999,999,999")+" Rp."
ENDIF